dofile "lib/radical.lua"

function tile(s) 
  return const.path.gfx.."game/eye/"..s..".jpg"; 
end

main = engine.main {
   start        = chain_ {
                     episode_("2-car")
                    ,musplayer_("car_player")
                    ,walk_("start")
                  }
  ,finish       = gamefile_("3-inter/clinic.lua")
}

car = engine.state {

}

car_player = musplayer.player {
   sfx("death"):inside("black1")
  ,mus("onechance"):inside("walk1"):loop()  
  ,sfx("woosh"):inside("walk4b")
  ,sfx("impact"):inside("resist1")  
  ,sfx("impact"):inside("resist2")
  ,sfx("scream"):inside("resist")
  ,mute():inside("finita")
  ,sfx("bam2"):inside("finita")

}

function nofocus(pic, next)
  return pause {
     tile       = tile(pic)
    ,fading     = 30
    ,time       = 4000
    ,next       = next
  }
end

start = pause {
   time         = 10
  ,next         = "black1"
}

black1 = pause {
   time         = 100
  ,fading       = 30
  ,next         = "wake1"
}

wake1 = nofocus("wake", "black2")

black2 = pause {
   time         = 4000
  ,fading       = 30
  ,next         = "walk1"
}

walk1 = scene {
   tile         = tile "wall3"
  ,ontimer      = text_tremor("Они заставили. Подняться на ноги. Один из них больно сжимает руку. Тащит куда-то вперед.", 60, 280, 12)
  ,nav          = {
                    up = vw("Подчиниться", "walk2")
                  }
}

walk2 = scene {
   tile         = tile "wall4"
  ,ontimer      = text_tremor("Они не останавливаются ни на секунду.", 120, 120, 12)
  ,nav          = {
                    up = vw("Подчиниться", "walk3")
                  }
}

walk3 = scene {
   tile         = { tile "ware2", 80, 20 }
  ,ontimer      = text_tremor("Они куда-то торопятся.", 120, 220, 12)
  ,nav          = {
                    up = vw("Подчиниться", "walk4")
                  }
}

walk4 = scene {
   tile         = tile "brickwall2"
  ,ontimer      = text_tremor("Дождь. Снова. Земля расползается под ногами. Один из них крепко схватил за руку.", 130, 240, 12)
  ,nav          = {
                    up = vw("Подчиниться", "walk4b")
                  }
}

walk4b = pause {
   tile         = { tile "policecar", 600, 200 }
  ,time         = 500
  ,fading       = 0
  ,next         = "walk5"
}

walk5 = scene {
   ontimer      = text_tremor("О, нет! Это машина! Только не машина!", 220, 220, 18, 28)
  ,fading       = 0
  ,nav          = {
                    down = vw("Сопротивляться", "resist1")
                  }
}

resist1 = pause {
   time         = 3000
  ,fading       = 0
  ,next         = "walk6" 
}

walk6 = scene {
   ontimer      = text_tremor("Только не машина! Только не машина! Они не понимают!", 80, 220, 18, 28)
  ,nav          = {
                    down = vw("Сопротивляться", "resist2")
                  }
}

resist2 = pause {
   time         = 3000
  ,fading       = 0
  ,next         = "resist3" 
}

resist3 = scene {
   ontimer      = text_tremor("Оставьте! Не в машину! Нет! Пожалуйста! Оставьте!", 120, 220, 18, 28)
  ,fading       = 0
  ,nav          = {
                    down = vw("Сопротивляться", "finita")
                  }
}

finita = pause {
   time         = 6000
  ,fading       = 0
  ,next         = "main"
}